home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT3.ZIP / C1.DXR / 00004_Banner Click.ls < prev    next >
Encoding:
Text File  |  1995-11-02  |  589 b   |  29 lines
  1. on mouseDown
  2.   global Cnt, Opt
  3.   set Cnt to the controlDown
  4.   set Opt to the optionDown
  5.   puppetSound("Ban_Down")
  6.   puppetSprite(21, 1)
  7.   set the castNum of sprite 21 to the number of cast "Banner Click"
  8.   updateStage()
  9. end
  10.  
  11. on mouseUp
  12.   global retMovie, Opt, state
  13.   set the castNum of sprite 21 to the number of cast "Banner Norm"
  14.   puppetSound("Ban_Up")
  15.   updateStage()
  16.   puppetSprite(21, 0)
  17.   if Opt then
  18.     keySound("VTSCELIN")
  19.   else
  20.     set state to "done"
  21.     cursor(4)
  22.     if retMovie = "DiarySearch" then
  23.       LeaveMovie(1)
  24.     else
  25.       LeaveMovie(0)
  26.     end if
  27.   end if
  28. end
  29.